home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: Delphi Borland Form
(archive/borlandDelphiForm).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Delphi Borland Form (archive/borlandDelphiForm)
| magic
| Supported |
| 100%
| file
| Delphi compiled form 'TScriptModel'
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Borland Form (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 54 50 46 30 0c 54 53 63 | 72 69 70 74 4d 6f 64 65 |TPF0.TSc|riptMode|
|00000010| 6c 00 0a 4f 4d 44 61 74 | 61 54 79 70 65 07 08 64 |l..OMDat|aType..d|
|00000020| 74 53 79 73 74 65 6d 0a | 52 65 73 75 6c 74 43 6f |tSystem.|ResultCo|
|00000030| 64 65 02 00 0c 53 63 72 | 69 70 74 73 2e 47 55 49 |de...Scr|ipts.GUI|
|00000040| 44 06 26 7b 37 31 38 30 | 31 38 45 41 2d 30 32 37 |D.&{7180|18EA-027|
|00000050| 34 2d 34 43 35 38 2d 41 | 30 33 39 2d 36 32 37 46 |4-4C58-A|039-627F|
|00000060| 32 31 35 39 30 41 46 37 | 7d 07 53 63 72 69 70 74 |21590AF7|}.Script|
|00000070| 73 0e 01 04 47 55 49 44 | 06 20 33 35 34 32 32 37 |s...GUID|. 354227|
|00000080| 34 46 32 43 37 36 34 46 | 35 46 38 33 33 37 44 31 |4F2C764F|5F8337D1|
|00000090| 32 36 33 45 46 42 41 44 | 45 44 05 53 74 61 74 65 |263EFBAD|ED.State|
|000000a0| 07 0a 6f 6d 49 6e 73 65 | 72 74 65 64 0a 53 63 72 |..omInse|rted.Scr|
|000000b0| 69 70 74 4e 61 6d 65 06 | 13 53 65 61 72 63 68 20 |iptName.|.Search |
|000000c0| 62 79 20 53 51 4c 20 51 | 75 65 72 79 06 41 75 74 |by SQL Q|uery.Aut|
|000000d0| 68 6f 72 06 11 48 42 20 | 76 61 6e 20 5a 77 69 65 |hor..HB |van Zwie|
|000000e0| 74 65 72 69 6e 67 12 41 | 75 74 68 6f 72 49 6e 66 |tering.A|uthorInf|
|000000f0| 6f 2e 53 74 72 69 6e 67 | 73 01 06 17 68 74 74 70 |o.String|s...http|
|00000100| 3a 2f 2f 77 77 77 2e 69 | 64 69 6d 61 67 65 72 2e |://www.i|dimager.|
|00000110| 63 6f 6d 00 10 53 68 6f | 72 74 44 65 73 63 72 69 |com..Sho|rtDescri|
|00000120| 70 74 69 6f 6e 06 d1 54 | 68 69 73 20 73 65 61 72 |ption..T|his sear|
|00000130| 63 68 20 73 63 72 69 70 | 74 20 77 69 6c 6c 20 61 |ch scrip|t will a|
|00000140| 6c 6c 6f 77 20 79 6f 75 | 20 74 6f 20 65 6e 74 65 |llow you| to ente|
|00000150| 72 20 61 20 71 75 65 72 | 79 20 61 6e 64 20 74 68 |r a quer|y and th|
|00000160| 65 20 72 65 73 75 6c 74 | 73 20 61 72 65 20 65 78 |e result|s are ex|
|00000170| 65 63 75 74 65 64 20 64 | 69 72 65 63 74 6c 79 20 |ecuted d|irectly |
|00000180| 61 67 61 69 6e 73 74 0d | 0a 74 68 65 20 64 61 74 |against.|.the dat|
|00000190| 61 62 61 73 65 2e 0d 0a | 0d 0a 49 4d 50 4f 52 54 |abase...|..IMPORT|
|000001a0| 41 4e 54 3b 20 74 68 65 | 20 6d 69 6e 69 6d 75 6d |ANT; the| minimum|
|000001b0| 20 72 65 73 75 6c 74 20 | 6f 66 20 74 68 65 20 71 | result |of the q|
|000001c0| 75 65 72 79 20 73 68 6f | 75 6c 64 20 62 65 20 61 |uery sho|uld be a|
|000001d0| 6c 6c 20 63 6f 6c 75 6d | 6e 73 20 66 72 6f 6d 20 |ll colum|ns from |
|000001e0| 74 68 65 20 0d 0a 76 5f | 43 61 74 61 6c 6f 67 49 |the ..v_|CatalogI|
|000001f0| 74 65 6d 20 76 69 65 77 | 0a 49 74 65 6d 73 2e 47 |tem view|.Items.G|
|00000200| 55 49 44 06 26 7b 38 43 | 41 32 43 42 41 36 2d 33 |UID.&{8C|A2CBA6-3|
|00000210| 34 41 36 2d 34 32 41 33 | 2d 39 30 34 35 2d 37 45 |4A6-42A3|-9045-7E|
|00000220| 43 43 35 38 39 36 44 32 | 36 35 7d 05 49 74 65 6d |CC5896D2|65}.Item|
|00000230| 73 0e 01 04 47 55 49 44 | 06 20 46 46 36 39 41 35 |s...GUID|. FF69A5|
|00000240| 33 46 43 44 35 31 34 41 | 31 35 39 30 43 41 32 35 |3FCD514A|1590CA25|
|00000250| 32 36 46 43 41 37 39 34 | 36 36 05 53 74 61 74 65 |26FCA794|66.State|
|00000260| 07 0a 6f 6d 49 6e 73 65 | 72 74 65 64 08 49 74 65 |..omInse|rted.Ite|
|00000270| 6d 4e 61 6d 65 06 13 53 | 65 61 72 63 68 20 62 79 |mName..S|earch by|
|00000280| 20 53 51 4c 20 51 75 65 | 72 79 12 53 6f 75 72 63 | SQL Que|ry.Sourc|
|00000290| 65 43 6f 64 65 2e 53 74 | 72 69 6e 67 73 01 06 48 |eCode.St|rings..H|
|000002a0| 70 72 6f 63 65 64 75 72 | 65 20 49 6e 69 74 69 61 |procedur|e Initia|
|000002b0| 6c 69 7a 65 3b 20 20 20 | 20 2f 2f 20 75 73 65 20 |lize; | // use |
|000002c0| 74 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 66 |this pro|cedure f|
|000002d0| 6f 72 20 67 6c 6f 62 61 | 6c 20 69 6e 69 74 69 61 |or globa|l initia|
|000002e0| 6c 69 7a 61 74 69 6f 6e | 06 05 62 65 67 69 6e 06 |lization|..begin.|
|000002f0| 26 20 20 4d 61 69 6e 46 | 6f 72 6d 2e 50 6f 73 69 |& MainF|orm.Posi|
|00000300| 74 69 6f 6e 20 3a 3d 20 | 70 6f 53 63 72 65 65 6e |tion := |poScreen|
|00000310| 43 65 6e 74 65 72 3b 06 | 60 20 20 6d 6d 51 75 65 |Center;.|` mmQue|
|00000320| 72 79 2e 4c 69 6e 65 73 | 2e 54 65 78 74 20 3a 3d |ry.Lines|.Text :=|
|00000330| 20 52 65 61 64 46 72 6f | 6d 52 65 67 69 73 74 72 | ReadFro|mRegistr|
|00000340| 79 20 28 27 53 63 72 69 | 70 74 73 5c 53 51 4c 53 |y ('Scri|pts\SQLS|
|00000350| 65 61 72 63 68 27 2c 20 | 27 4c 61 73 74 51 75 65 |earch', |'LastQue|
|00000360| 72 79 27 2c 20 6d 6d 51 | 75 65 72 79 2e 4c 69 6e |ry', mmQ|uery.Lin|
|00000370| 65 73 2e 54 65 78 74 29 | 3b 06 04 65 6e 64 3b 12 |es.Text)|;..end;.|
|00000380| 00 00 00 00 06 46 70 72 | 6f 63 65 64 75 72 65 20 |.....Fpr|ocedure |
|00000390| 46 69 6e 61 6c 69 7a 65 | 3b 20 20 20 20 20 20 2f |Finalize|; /|
|000003a0| 2f 20 75 73 65 20 74 68 | 69 73 20 70 72 6f 63 65 |/ use th|is proce|
|000003b0| 64 75 72 65 20 66 6f 72 | 20 67 6c 6f 62 61 6c 20 |dure for| global |
|000003c0| 66 69 6e 61 6c 69 7a 61 | 74 69 6f 6e 06 05 62 65 |finaliza|tion..be|
|000003d0| 67 69 6e 06 49 20 20 57 | 72 69 74 65 54 6f 52 65 |gin.I W|riteToRe|
|000003e0| 67 69 73 74 72 79 20 28 | 27 53 63 72 69 70 74 73 |gistry (|'Scripts|
|000003f0| 5c 53 51 4c 53 65 61 72 | 63 68 27 2c 20 27 4c 61 |\SQLSear|ch', 'La|
|00000400| 73 74 51 75 65 72 79 27 | 2c 20 6d 6d 51 75 65 72 |stQuery'|, mmQuer|
|00000410| 79 2e 4c 69 6e 65 73 2e | 54 65 78 74 29 3b 06 04 |y.Lines.|Text);..|
|00000420| 65 6e 64 3b 12 00 00 00 | 00 06 17 70 72 6f 63 65 |end;....|...proce|
|00000430| 64 75 72 65 20 70 62 51 | 75 65 72 79 43 6c 69 63 |dure pbQ|ueryClic|
|00000440| 6b 3b 06 03 76 61 72 06 | 1b 20 20 41 44 73 3a 20 |k;..var.|. ADs: |
|00000450| 54 44 42 58 4f 4d 43 6c | 69 65 6e 74 44 61 74 61 |TDBXOMCl|ientData|
|00000460| 53 65 74 3b 06 05 62 65 | 67 69 6e 06 1f 20 20 53 |Set;..be|gin.. S|
|00000470| 63 72 65 65 6e 2e 43 75 | 72 73 6f 72 20 3a 3d 20 |creen.Cu|rsor := |
|00000480| 63 72 48 6f 75 72 47 6c | 61 73 73 3b 12 00 00 00 |crHourGl|ass;....|
|00000490| 00 06 1c 20 20 41 44 73 | 20 3a 3d 20 43 61 74 61 |... ADs| := Cata|
|000004a0| 6c 6f 67 2e 4e 65 77 44 | 61 74 61 73 65 74 3b 12 |log.NewD|ataset;.|
|000004b0| 00 00 00 00 06 28 20 20 | 41 44 73 2e 43 6f 6d 6d |.....( |ADs.Comm|
|000004c0| 61 6e 64 54 65 78 74 20 | 3a 3d 20 6d 6d 51 75 65 |andText |:= mmQue|
|000004d0| 72 79 2e 4c 69 6e 65 73 | 2e 54 65 78 74 3b 12 00 |ry.Lines|.Text;..|
|000004e0| 00 00 00 06 0b 20 20 41 | 44 73 2e 4f 70 65 6e 3b |..... A|Ds.Open;|
|000004f0| 06 25 20 20 53 65 61 72 | 63 68 52 65 73 75 6c 74 |.% Sear|chResult|
|00000500| 2e 49 74 65 6d 73 2e 41 | 64 64 44 61 74 61 73 65 |.Items.A|ddDatase|
|00000510| 74 20 28 41 44 73 29 06 | 0c 20 20 41 44 73 2e 43 |t (ADs).|. ADs.C|
|00000520| 6c 6f 73 65 3b 12 00 00 | 00 00 06 0b 20 20 41 44 |lose;...|.... AD|
|00000530| 73 2e 46 72 65 65 3b 12 | 00 00 00 00 06 1d 20 20 |s.Free;.|...... |
|00000540| 53 63 72 65 65 6e 2e 43 | 75 72 73 6f 72 20 3a 3d |Screen.C|ursor :=|
|00000550| 20 63 72 44 65 66 61 75 | 6c 74 3b 12 00 00 00 00 | crDefau|lt;.....|
|00000560| 06 1f 20 20 4d 61 69 6e | 46 6f 72 6d 2e 4d 6f 64 |.. Main|Form.Mod|
|00000570| 61 6c 52 65 73 75 6c 74 | 20 3a 3d 20 6d 72 4f 6b |alResult| := mrOk|
|00000580| 3b 06 04 65 6e 64 3b 00 | 07 56 65 72 73 69 6f 6e |;..end;.|.Version|
|00000590| 06 03 31 2e 30 07 57 69 | 74 68 47 55 49 09 0b 4c |..1.0.Wi|thGUI..L|
|000005a0| 61 73 74 55 70 64 61 74 | 65 64 05 00 60 ab c7 69 |astUpdat|ed..`..i|
|000005b0| be 23 99 0e 40 0a 50 65 | 72 73 69 73 74 65 6e 74 |.#..@.Pe|rsistent|
|000005c0| 08 0a 46 6f 72 6d 53 74 | 72 65 61 6d 0a 39 0a 00 |..FormSt|ream.9..|
|000005d0| 00 54 50 46 30 0d 54 53 | 63 72 69 70 74 44 65 73 |.TPF0.TS|criptDes|
|000005e0| 69 67 6e 02 5f 31 04 4c | 65 66 74 02 00 03 54 6f |ign._1.L|eft...To|
|000005f0| 70 02 00 05 57 69 64 74 | 68 03 29 02 06 48 65 69 |p...Widt|h.)..Hei|
|00000600| 67 68 74 03 4e 01 07 43 | 61 70 74 69 6f 6e 06 12 |ght.N..C|aption..|
|00000610| 53 51 4c 20 51 75 65 72 | 69 65 64 20 53 65 61 72 |SQL Quer|ied Sear|
|00000620| 63 68 05 43 6f 6c 6f 72 | 07 09 63 6c 42 74 6e 46 |ch.Color|..clBtnF|
|00000630| 61 63 65 0c 46 6f 6e 74 | 2e 43 68 61 72 73 65 74 |ace.Font|.Charset|
|00000640| 07 0f 44 45 46 41 55 4c | 54 5f 43 48 41 52 53 45 |..DEFAUL|T_CHARSE|
|00000650| 54 0a 46 6f 6e 74 2e 43 | 6f 6c 6f 72 07 0c 63 6c |T.Font.C|olor..cl|
|00000660| 57 69 6e 64 6f 77 54 65 | 78 74 0b 46 6f 6e 74 2e |WindowTe|xt.Font.|
|00000670| 48 65 69 67 68 74 02 f5 | 09 46 6f 6e 74 2e 4e 61 |Height..|.Font.Na|
|00000680| 6d 65 06 0d 4d 53 20 53 | 61 6e 73 20 53 65 72 69 |me..MS S|ans Seri|
|00000690| 66 0a 46 6f 6e 74 2e 53 | 74 79 6c 65 0b 00 0e 4f |f.Font.S|tyle...O|
|000006a0| 6c 64 43 72 65 61 74 65 | 4f 72 64 65 72 08 0a 44 |ldCreate|Order..D|
|000006b0| 65 73 69 67 6e 53 69 7a | 65 01 03 21 02 03 2c 01 |esignSiz|e..!..,.|
|000006c0| 00 0d 50 69 78 65 6c 73 | 50 65 72 49 6e 63 68 02 |..Pixels|PerInch.|
|000006d0| 60 0a 54 65 78 74 48 65 | 69 67 68 74 02 0d 00 06 |`.TextHe|ight....|
|000006e0| 54 4c 61 62 65 6c 06 4c | 61 62 65 6c 31 04 4c 65 |TLabel.L|abel1.Le|
|000006f0| 66 74 02 0c 03 54 6f 70 | 02 0b 05 57 69 64 74 68 |ft...Top|...Width|
|00000700| 02 34 06 48 65 69 67 68 | 74 02 0d 07 43 61 70 74 |.4.Heigh|t...Capt|
|00000710| 69 6f 6e 06 09 53 51 4c | 20 51 75 65 72 79 00 00 |ion..SQL| Query..|
|00000720| 06 54 4c 61 62 65 6c 06 | 4c 61 62 65 6c 32 04 4c |.TLabel.|Label2.L|
|00000730| 65 66 74 02 09 03 54 6f | 70 03 eb 00 05 57 69 64 |eft...To|p....Wid|
|00000740| 74 68 03 bc 01 06 48 65 | 69 67 68 74 02 0d 07 41 |th....He|ight...A|
|00000750| 6e 63 68 6f 72 73 0b 06 | 61 6b 4c 65 66 74 08 61 |nchors..|akLeft.a|
|00000760| 6b 42 6f 74 74 6f 6d 00 | 07 43 61 70 74 69 6f 6e |kBottom.|.Caption|
|00000770| 06 58 49 4d 50 4f 52 54 | 41 4e 54 3b 20 74 68 65 |.XIMPORT|ANT; the|
|00000780| 20 6d 69 6e 69 6d 75 6d | 20 72 65 73 75 6c 74 20 | minimum| result |
|00000790| 6f 66 20 74 68 65 20 71 | 75 65 72 79 20 73 68 6f |of the q|uery sho|
|000007a0| 75 6c 64 20 62 65 20 61 | 6c 6c 20 63 6f 6c 75 6d |uld be a|ll colum|
|000007b0| 6e 73 20 66 72 6f 6d 20 | 76 69 65 77 20 76 5f 43 |ns from |view v_C|
|000007c0| 61 74 61 6c 6f 67 49 74 | 65 6d 0c 46 6f 6e 74 2e |atalogIt|em.Font.|
|000007d0| 43 68 61 72 73 65 74 07 | 0f 44 45 46 41 55 4c 54 |Charset.|.DEFAULT|
|000007e0| 5f 43 48 41 52 53 45 54 | 0a 46 6f 6e 74 2e 43 6f |_CHARSET|.Font.Co|
|000007f0| 6c 6f 72 07 05 63 6c 52 | 65 64 0b 46 6f 6e 74 2e |lor..clR|ed.Font.|
|00000800| 48 65 69 67 68 74 02 f5 | 09 46 6f 6e 74 2e 4e 61 |Height..|.Font.Na|
|00000810| 6d 65 06 0d 4d 53 20 53 | 61 6e 73 20 53 65 72 69 |me..MS S|ans Seri|
|00000820| 66 0a 46 6f 6e 74 2e 53 | 74 79 6c 65 0b 08 66 73 |f.Font.S|tyle..fs|
|00000830| 49 74 61 6c 69 63 00 0a | 50 61 72 65 6e 74 46 6f |Italic..|ParentFo|
|00000840| 6e 74 08 00 00 05 54 4d | 65 6d 6f 07 6d 6d 51 75 |nt....TM|emo.mmQu|
|00000850| 65 72 79 04 4c 65 66 74 | 02 0a 03 54 6f 70 02 1e |ery.Left|...Top..|
|00000860| 05 57 69 64 74 68 03 04 | 02 06 48 65 69 67 68 74 |.Width..|..Height|
|00000870| 03 c8 00 07 41 6e 63 68 | 6f 72 73 0b 06 61 6b 4c |....Anch|ors..akL|
|00000880| 65 66 74 05 61 6b 54 6f | 70 07 61 6b 52 69 67 68 |eft.akTo|p.akRigh|
|00000890| 74 08 61 6b 42 6f 74 74 | 6f 6d 00 0c 46 6f 6e 74 |t.akBott|om..Font|
|000008a0| 2e 43 68 61 72 73 65 74 | 07 0c 41 4e 53 49 5f 43 |.Charset|..ANSI_C|
|000008b0| 48 41 52 53 45 54 0a 46 | 6f 6e 74 2e 43 6f 6c 6f |HARSET.F|ont.Colo|
|000008c0| 72 07 0c 63 6c 57 69 6e | 64 6f 77 54 65 78 74 0b |r..clWin|dowText.|
|000008d0| 46 6f 6e 74 2e 48 65 69 | 67 68 74 02 f3 09 46 6f |Font.Hei|ght...Fo|
|000008e0| 6e 74 2e 4e 61 6d 65 06 | 0b 43 6f 75 72 69 65 72 |nt.Name.|.Courier|
|000008f0| 20 4e 65 77 0a 46 6f 6e | 74 2e 53 74 79 6c 65 0b | New.Fon|t.Style.|
|00000900| 00 0d 4c 69 6e 65 73 2e | 53 74 72 69 6e 67 73 01 |..Lines.|Strings.|
|00000910| 06 0c 73 65 6c 65 63 74 | 20 20 20 69 2e 2a 06 18 |..select| i.*..|
|00000920| 66 72 6f 6d 20 20 20 20 | 20 76 5f 43 61 74 61 6c |from | v_Catal|
|00000930| 6f 67 49 74 65 6d 20 69 | 00 0a 50 61 72 65 6e 74 |ogItem i|..Parent|
|00000940| 46 6f 6e 74 08 0a 53 63 | 72 6f 6c 6c 42 61 72 73 |Font..Sc|rollBars|
|00000950| 07 06 73 73 42 6f 74 68 | 08 54 61 62 4f 72 64 65 |..ssBoth|.TabOrde|
|00000960| 72 02 01 00 00 07 54 42 | 69 74 42 74 6e 07 70 62 |r.....TB|itBtn.pb|
|00000970| 51 75 65 72 79 04 4c 65 | 66 74 02 09 03 54 6f 70 |Query.Le|ft...Top|
|00000980| 03 0c 01 05 57 69 64 74 | 68 02 4b 06 48 65 69 67 |....Widt|h.K.Heig|
|00000990| 68 74 02 19 07 41 6e 63 | 68 6f 72 73 0b 06 61 6b |ht...Anc|hors..ak|
|000009a0| 4c 65 66 74 08 61 6b 42 | 6f 74 74 6f 6d 00 07 43 |Left.akB|ottom..C|
|000009b0| 61 70 74 69 6f 6e 06 06 | 26 51 75 65 72 79 08 54 |aption..|&Query.T|
|000009c0| 61 62 4f 72 64 65 72 02 | 00 0a 47 6c 79 70 68 2e |abOrder.|..Glyph.|
|000009d0| 44 61 74 61 0a e2 01 00 | 00 de 01 00 00 42 4d de |Data....|.....BM.|
|000009e0| 01 00 00 00 00 00 00 76 | 00 00 00 28 00 00 00 24 |.......v|...(...$|
|000009f0| 00 00 00 12 00 00 00 01 | 00 04 00 00 00 00 00 68 |........|.......h|
|00000a00| 01 00 00 00 00 00 00 00 | 00 00 00 10 00 00 00 00 |........|........|
|00000a10| 00 00 00 00 00 00 00 00 | 00 80 00 00 80 00 00 00 |........|........|
|00000a20| 80 80 00 80 00 00 00 80 | 00 80 00 80 80 00 00 c0 |........|........|
|00000a30| c0 c0 00 80 80 80 00 00 | 00 ff 00 00 ff 00 00 00 |........|........|
|00000a40| ff ff 00 ff 00 00 00 ff | 00 ff 00 ff ff 00 00 ff |........|........|
|00000a50| ff ff 00 33 33 33 44 44 | 44 33 33 33 33 33 3f 88 |...333DD|D33333?.|
|00000a60| 88 88 3f 33 33 00 00 32 | 43 34 22 22 22 44 33 33 |..?33..2|C4"""D33|
|00000a70| 38 8f 38 33 33 33 88 f3 | 33 00 00 32 24 42 22 22 |8.8333..|3..2$B""|
|00000a80| 22 22 43 33 38 f8 83 3f | ff ff 33 8f 33 00 00 32 |""C38..?|..3.3..2|
|00000a90| 22 22 2a aa aa 22 24 33 | 38 f3 33 f8 88 88 f3 38 |""*.."$3|8.3....8|
|00000aa0| f3 00 00 32 22 22 a3 33 | 33 a2 22 43 38 f3 3f 83 |...2"".3|3."C8.?.|
|00000ab0| 33 33 8f 33 8f 00 00 32 | 22 22 33 33 33 3a 22 43 |33.3...2|""333:"C|
|00000ac0| 38 f3 38 33 33 33 38 f3 | 8f 00 00 32 22 22 23 33 |8.83338.|...2""#3|
|00000ad0| 33 3a 44 43 38 ff ff 8f | 33 33 38 88 83 00 00 3a |3:DC8...|338....:|
|00000ae0| aa aa aa 33 33 33 33 33 | 38 88 88 88 33 33 33 33 |...33333|8...3333|
|00000af0| 33 00 00 33 33 33 33 33 | 33 33 33 33 33 33 33 33 |3..33333|33333333|
|00000b00| 33 33 ff ff ff 00 00 33 | 33 33 33 33 33 44 44 44 |33.....3|33333DDD|
|00000b10| 33 ff ff 33 33 33 88 88 | 88 00 00 3a 44 43 33 33 |3..333..|...:DC33|
|00000b20| 3a 22 22 24 38 88 8f 33 | 33 38 f3 33 38 00 00 3a |:""$8..3|38.38..:|
|00000b30| 22 43 33 33 33 a2 22 24 | 38 f3 8f 33 33 33 83 33 |"C333."$|8..333.3|
|00000b40| 38 00 00 33 a2 24 33 33 | 34 42 22 24 33 83 38 ff |8..3.$33|4B"$3.8.|
|00000b50| ff f8 83 33 38 00 00 33 | a2 22 44 44 42 22 22 24 |...38..3|."DDB""$|
|00000b60| 33 8f 33 88 88 83 33 ff | 38 00 00 33 3a 22 22 22 |3.3...3.|8..3:"""|
|00000b70| 22 22 aa 24 33 38 ff 33 | 33 33 ff 88 f8 00 00 33 |"".$38.3|33.....3|
|00000b80| 33 aa 22 22 22 aa 33 a3 | 33 33 88 ff ff ff 88 33 |3.""".3.|33.....3|
|00000b90| 83 00 00 33 33 33 aa aa | aa 33 33 33 33 33 33 88 |...333..|.333333.|
|00000ba0| 88 88 33 33 33 00 00 33 | 33 33 33 33 33 33 33 33 |..333..3|33333333|
|00000bb0| 33 33 33 33 33 33 33 33 | 33 00 00 09 4e 75 6d 47 |33333333|3...NumG|
|00000bc0| 6c 79 70 68 73 02 02 00 | 00 0b 54 69 64 53 63 72 |lyphs...|..TidScr|
|00000bd0| 69 70 74 65 72 00 12 53 | 6f 75 72 63 65 43 6f 64 |ipter..S|ourceCod|
|00000be0| 65 2e 53 74 72 69 6e 67 | 73 01 06 48 70 72 6f 63 |e.String|s..Hproc|
|00000bf0| 65 64 75 72 65 20 49 6e | 69 74 69 61 6c 69 7a 65 |edure In|itialize|
|00000c00| 3b 20 20 20 20 2f 2f 20 | 75 73 65 20 74 68 69 73 |; // |use this|
|00000c10| 20 70 72 6f 63 65 64 75 | 72 65 20 66 6f 72 20 67 | procedu|re for g|
|00000c20| 6c 6f 62 61 6c 20 69 6e | 69 74 69 61 6c 69 7a 61 |lobal in|itializa|
|00000c30| 74 69 6f 6e 06 05 62 65 | 67 69 6e 06 26 20 20 4d |tion..be|gin.& M|
|00000c40| 61 69 6e 46 6f 72 6d 2e | 50 6f 73 69 74 69 6f 6e |ainForm.|Position|
|00000c50| 20 3a 3d 20 70 6f 53 63 | 72 65 65 6e 43 65 6e 74 | := poSc|reenCent|
|00000c60| 65 72 3b 06 60 20 20 6d | 6d 51 75 65 72 79 2e 4c |er;.` m|mQuery.L|
|00000c70| 69 6e 65 73 2e 54 65 78 | 74 20 3a 3d 20 52 65 61 |ines.Tex|t := Rea|
|00000c80| 64 46 72 6f 6d 52 65 67 | 69 73 74 72 79 20 28 27 |dFromReg|istry ('|
|00000c90| 53 63 72 69 70 74 73 5c | 53 51 4c 53 65 61 72 63 |Scripts\|SQLSearc|
|00000ca0| 68 27 2c 20 27 4c 61 73 | 74 51 75 65 72 79 27 2c |h', 'Las|tQuery',|
|00000cb0| 20 6d 6d 51 75 65 72 79 | 2e 4c 69 6e 65 73 2e 54 | mmQuery|.Lines.T|
|00000cc0| 65 78 74 29 3b 06 04 65 | 6e 64 3b 06 00 06 46 70 |ext);..e|nd;...Fp|
|00000cd0| 72 6f 63 65 64 75 72 65 | 20 46 69 6e 61 6c 69 7a |rocedure| Finaliz|
|00000ce0| 65 3b 20 20 20 20 20 20 | 2f 2f 20 75 73 65 20 74 |e; |// use t|
|00000cf0| 68 69 73 20 70 72 6f 63 | 65 64 75 72 65 20 66 6f |his proc|edure fo|
|00000d00| 72 20 67 6c 6f 62 61 6c | 20 66 69 6e 61 6c 69 7a |r global| finaliz|
|00000d10| 61 74 69 6f 6e 06 05 62 | 65 67 69 6e 06 49 20 20 |ation..b|egin.I |
|00000d20| 57 72 69 74 65 54 6f 52 | 65 67 69 73 74 72 79 20 |WriteToR|egistry |
|00000d30| 28 27 53 63 72 69 70 74 | 73 5c 53 51 4c 53 65 61 |('Script|s\SQLSea|
|00000d40| 72 63 68 27 2c 20 27 4c | 61 73 74 51 75 65 72 79 |rch', 'L|astQuery|
|00000d50| 27 2c 20 6d 6d 51 75 65 | 72 79 2e 4c 69 6e 65 73 |', mmQue|ry.Lines|
|00000d60| 2e 54 65 78 74 29 3b 06 | 04 65 6e 64 3b 06 00 06 |.Text);.|.end;...|
|00000d70| 17 70 72 6f 63 65 64 75 | 72 65 20 70 62 51 75 65 |.procedu|re pbQue|
|00000d80| 72 79 43 6c 69 63 6b 3b | 06 03 76 61 72 06 1b 20 |ryClick;|..var.. |
|00000d90| 20 41 44 73 3a 20 54 44 | 42 58 4f 4d 43 6c 69 65 | ADs: TD|BXOMClie|
|00000da0| 6e 74 44 61 74 61 53 65 | 74 3b 06 05 62 65 67 69 |ntDataSe|t;..begi|
|00000db0| 6e 06 1f 20 20 53 63 72 | 65 65 6e 2e 43 75 72 73 |n.. Scr|een.Curs|
|00000dc0| 6f 72 20 3a 3d 20 63 72 | 48 6f 75 72 47 6c 61 73 |or := cr|HourGlas|
|00000dd0| 73 3b 06 00 06 1c 20 20 | 41 44 73 20 3a 3d 20 43 |s;.... |ADs := C|
|00000de0| 61 74 61 6c 6f 67 2e 4e | 65 77 44 61 74 61 73 65 |atalog.N|ewDatase|
|00000df0| 74 3b 06 00 06 28 20 20 | 41 44 73 2e 43 6f 6d 6d |t;...( |ADs.Comm|
|00000e00| 61 6e 64 54 65 78 74 20 | 3a 3d 20 6d 6d 51 75 65 |andText |:= mmQue|
|00000e10| 72 79 2e 4c 69 6e 65 73 | 2e 54 65 78 74 3b 06 00 |ry.Lines|.Text;..|
|00000e20| 06 0b 20 20 41 44 73 2e | 4f 70 65 6e 3b 06 25 20 |.. ADs.|Open;.% |
|00000e30| 20 53 65 61 72 63 68 52 | 65 73 75 6c 74 2e 49 74 | SearchR|esult.It|
|00000e40| 65 6d 73 2e 41 64 64 44 | 61 74 61 73 65 74 20 28 |ems.AddD|ataset (|
|00000e50| 41 44 73 29 06 0c 20 20 | 41 44 73 2e 43 6c 6f 73 |ADs).. |ADs.Clos|
|00000e60| 65 3b 06 00 06 0b 20 20 | 41 44 73 2e 46 72 65 65 |e;.... |ADs.Free|
|00000e70| 3b 06 00 06 1d 20 20 53 | 63 72 65 65 6e 2e 43 75 |;.... S|creen.Cu|
|00000e80| 72 73 6f 72 20 3a 3d 20 | 63 72 44 65 66 61 75 6c |rsor := |crDefaul|
|00000e90| 74 3b 06 00 06 1f 20 20 | 4d 61 69 6e 46 6f 72 6d |t;.... |MainForm|
|00000ea0| 2e 4d 6f 64 61 6c 52 65 | 73 75 6c 74 20 3a 3d 20 |.ModalRe|sult := |
|00000eb0| 6d 72 4f 6b 3b 06 04 65 | 6e 64 3b 00 10 53 61 76 |mrOk;..e|nd;..Sav|
|00000ec0| 65 43 6f 6d 70 69 6c 65 | 64 43 6f 64 65 08 10 53 |eCompile|dCode..S|
|00000ed0| 68 6f 72 74 42 6f 6f 6c | 65 61 6e 45 76 61 6c 08 |hortBool|eanEval.|
|00000ee0| 1d 4c 69 62 4f 70 74 69 | 6f 6e 73 2e 53 65 61 72 |.LibOpti|ons.Sear|
|00000ef0| 63 68 50 61 74 68 2e 53 | 74 72 69 6e 67 73 01 06 |chPath.S|trings..|
|00000f00| 09 24 28 43 55 52 44 49 | 52 29 06 09 24 28 41 50 |.$(CURDI|R)..$(AP|
|00000f10| 50 44 49 52 29 06 2a 44 | 3a 5c 69 64 46 4f 58 50 |PDIR).*D|:\idFOXP|
|00000f20| 72 6f 6a 65 63 74 65 6e | 5c 49 6d 61 67 65 42 72 |rojecten|\ImageBr|
|00000f30| 6f 77 73 65 72 5c 53 63 | 72 69 70 74 4c 69 62 73 |owser\Sc|riptLibs|
|00000f40| 5c 00 18 4c 69 62 4f 70 | 74 69 6f 6e 73 2e 53 6f |\..LibOp|tions.So|
|00000f50| 75 72 63 65 46 69 6c 65 | 45 78 74 06 04 2e 70 73 |urceFile|Ext...ps|
|00000f60| 63 1a 4c 69 62 4f 70 74 | 69 6f 6e 73 2e 43 6f 6d |c.LibOpt|ions.Com|
|00000f70| 70 69 6c 65 64 46 69 6c | 65 45 78 74 06 04 2e 70 |piledFil|eExt...p|
|00000f80| 63 75 19 4c 69 62 4f 70 | 74 69 6f 6e 73 2e 55 73 |cu.LibOp|tions.Us|
|00000f90| 65 53 63 72 69 70 74 46 | 69 6c 65 73 09 11 43 61 |eScriptF|iles..Ca|
|00000fa0| 6c 6c 45 78 65 63 48 6f | 6f 6b 45 76 65 6e 74 08 |llExecHo|okEvent.|
|00000fb0| 07 43 61 74 61 6c 6f 67 | 07 0d 43 61 74 61 6c 6f |.Catalog|..Catalo|
|00000fc0| 67 2e 4f 77 6e 65 72 00 | 00 0d 54 53 53 45 76 65 |g.Owner.|..TSSEve|
|00000fd0| 6e 74 53 61 76 65 72 00 | 0e 53 63 72 69 70 74 65 |ntSaver.|.Scripte|
|00000fe0| 72 45 76 65 6e 74 73 06 | 1e 70 62 51 75 65 72 79 |rEvents.|.pbQuery|
|00000ff0| 2e 4f 6e 43 6c 69 63 6b | 3d 70 62 51 75 65 72 79 |.OnClick|=pbQuery|
|00001000| 43 6c 69 63 6b 0d 0a 00 | 00 00 00 00 0c 4d 61 6e |Click...|.....Man|
|00001010| 75 61 6c 46 6f 72 6d 61 | 74 07 07 73 6d 66 54 65 |ualForma|t..smfTe|
|00001020| 78 74 14 53 63 72 69 70 | 74 52 65 73 6f 75 72 63 |xt.Scrip|tResourc|
|00001030| 65 73 2e 47 55 49 44 06 | 26 7b 43 38 46 34 36 44 |es.GUID.|&{C8F46D|
|00001040| 44 46 2d 33 43 39 30 2d | 34 31 37 36 2d 39 35 37 |DF-3C90-|4176-957|
|00001050| 30 2d 46 36 46 34 44 32 | 39 36 41 37 38 43 7d 0f |0-F6F4D2|96A78C}.|
|00001060| 53 63 72 69 70 74 52 65 | 73 6f 75 72 63 65 73 0e |ScriptRe|sources.|
|00001070| 00 07 56 65 72 73 69 6f | 6e 06 03 31 2e 30 00 00 |..Versio|n..1.0..|
|00001080| 0b 47 72 6f 75 70 73 2e | 47 55 49 44 06 26 7b 44 |.Groups.|GUID.&{D|
|00001090| 35 30 44 37 37 41 35 2d | 41 46 34 32 2d 34 44 38 |50D77A5-|AF42-4D8|
|000010a0| 37 2d 42 33 42 32 2d 42 | 41 44 39 32 44 37 31 43 |7-B3B2-B|AD92D71C|
|000010b0| 31 44 39 7d 06 47 72 6f | 75 70 73 0e 00 00 00 |1D9}.Gro|ups.... |
+--------+-------------------------+-------------------------+--------+--------+
